home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 43
/
Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso
/
Aminet
/
comm
/
mail
/
HTMLread.lha
/
HTMLreadINSTALL
/
Install
next >
Wrap
Text File
|
2001-03-10
|
10KB
|
346 lines
; Installer installation script for HTMLread.rexx
; $VER:Install HTMLread V1.00 (04.02.2000)
(set @default-dest "YAM:")
(set @app-name "HTMLread Install")
(set @pretend 0)
(set @user-level 1)
;(user 1)
(if (< (/ (getversion) 65536) 37)
(
(abort "You must have Kickstart 2.0 or higher installed to use HTMLread!")
)
)
(complete 0)
(message "\nHTMLread installation!\n\n\n"
"This script installs HTMLread\n"
"on your Amiga.\n\n"
"HTMLread need YAM 2.1\n"
"and of course a running RexxMast"
)
(complete 5)
(if (exists "Libs/rexxreqtools.library" (noreq))
(
(complete 10)
(copylib
(prompt "\nCopying rexxreqtools.library to LIBS:...")
(help "The rexxreqtools.library used from:\n"
"- HTMLreadPrefs\n"
"- Optimizer\n\n\n"
@copylib-help)
(source "Libs/rexxreqtools.library")
(dest "LIBS:")
(confirm 1)
(optional "nofail")
(delopts "askuser")
)
)
)
(complete 15)
(if (exists "Libs/reqtools.library" (noreq))
(
(complete 20)
(copylib
(prompt "\nCopying reqtools.library to LIBS:...")
(help @copylib-help)
(source "Libs/reqtools.library")
(dest "LIBS:")
(confirm 1)
(optional "nofail")
(delopts "askuser")
)
)
)
(complete 25)
(set temp (EXISTS "YAM:HTMLread" (noreq)))
(IF (= "2" temp)
( (IF (askchoice (prompt "\n\nDo you want backup the old HTMLread?\n")
(help "If you choose: Yes, of course!\n"
"the installer will rename the old HTMLread\n"
"to HTMLread.bak. A old HTMLread.bak will be\n"
"deleted.\n\n"
"If you choose: No, delete the old!\n"
"the Installer delete the old HTMLread drawer.\n\n\n\n"
@askchoice-help
)
(choices "Yes, of course!"
"No, delete the old!"
)
(default "0") )
( (run "C:delete YAM:HTMLread/#? YAM:HTMLread YAM:HTMLread.info YAM:UnInstall YAM:UnInstall.info ALL FORCE QUIET")
(complete 26)
)
( (if ( exists "YAM:HTMLread.bak")
( ( run "C:delete >NIL: YAM:HTMLread.bak/#? YAM:HTMLread.bak YAM:HTMLread.bak.info YAM:UnInstall YAM:UnInstall.info ALL FORCE QUIET"
( SAFE )
)
( run "C:rename >NIL: QUIET FROM YAM:HTMLread TO YAM:HTMLread.bak"
( SAFE )
)
( run "C:rename >NIL: QUIET FROM YAM:HTMLread.info TO YAM:HTMLread.bak.info"
( SAFE )
)
( message "\n\n\n\n\nOk, I backuped HTMLread to HTMLread.bak")
)
( ( run "C:rename >NIL: QUIET FROM YAM:HTMLread TO YAM:HTMLread.bak"
( SAFE )
)
( run "C:rename >NIL: QUIET FROM YAM:HTMLread.info TO YAM:HTMLread.bak.info"
( SAFE )
)
( message "\n\n\n\n\nOk, I backuped HTMLread to HTMLread.bak")
)
)
)
)
)
)
(complete 30)
(copyfiles
( prompt "Copy HTMLread-drawer!\nA new drawer will be created!" )
( source "installfiles/" )
( dest "YAM:" )
( help "This is the support-drawer for HTMLread\n"
"Here you find the prefseditor, docs...\n\n\n\n"
@copyfiles-help
)
( infos )
( confirm 1 )
( all )
( optional "nofail" )
( delopts "askuser" )
( safe )
)
( run "copy installfiles/HTMLread.info yam:" )
(complete 65)
(set RexxPath (EXISTS "YAM:Rexx" (noreq)))
(IF (= "0" RexxPath)
(set RexxPath (askdir (prompt "\nWere can I install the HTMLread.rexx?\nPlease choose youre Rexx-drawer!\n")
(help "HTMLread.rexx is the most importend part. Please copy this to youre Rexx drawer. For example YAM:Rexx/\n\n"
@askdir-help
)
(default "YAM:")
)
)
( (set RexxPath "YAM:Rexx") )
)
(complete 70)
(copyfiles (prompt "\nNow you should copy the checkHTML.rx!\n"
"This is the file that detect HTML-EMails and start HTMLread.rx!\n"
)
(source "installfiles/HTMLread/Scripts/OPT/checkHTML.rx")
(dest RexxPath)
(help @copyfiles-help)
(infos)
(optional "nofail")
(delopts "askuser")
( confirm 2 )
(safe)
)
(complete 75)
(set temp 1)
(if (< (/ (getversion) 65536) 39)
( (set temp 0) )
)
(set temp (askchoice (prompt "\n\nPlease selcet the HTMLread binary!\nWhich Version do you want use?\n")
(help "\nNote, the OS3.0-Version will cause a GURU if you use it with V2.x\n\n\n"
@askchoice-help
)
(choices "OS2.x-Version"
"OS3.x-Version"
)
(default temp)
)
)
(IF (= "0" temp)
( (set temp "installfiles/HTMLread/bin/HTMLread.OS2") )
( (set temp "installfiles/HTMLread/bin/HTMLread.OS3") )
)
(copyfiles (prompt "\nNow you should copy the HTMLread binary!\n"
"This file converts youre HTMLmail!\n"
)
(source temp)
(dest "C:")
(newname "HTMLread")
(help "Here you copy one of the most importend parts: HTMLread binary"
"You can find this file in YAM:HTMLread/bin/, too.\n\n\n"
@copyfiles-help
)
(infos)
(optional "nofail")
(delopts "askuser")
( confirm 2 )
(safe)
)
(complete 78)
( set temp ( cat RexxPath "/HTMLread.rx" ) )
(textfile (prompt "\nSet ENV:HTMLread to \n»"
temp
"«\n\nIn ENV:HTMLread checkHTML.rx find the path for HTMLread.rx\n"
)
(help "\nCopy HTMLreadpath to ENV:...\n")
( dest "ENV:HTMLread" )
( append temp )
( confirm 2 )
( safe )
)
(complete 79)
(textfile (prompt "\nSet ENVARC:HTMLread\n" )
(help "\nCopy HTMLreadpath to ENVARC:...\n")
( dest "ENVARC:HTMLread" )
( append temp )
( confirm 2 )
( safe )
)
(complete 80)
(copyfiles (prompt "\nNow you should copy the HTMLread.rx!\n"
"This start youre HTML-Viewer!\n"
)
(source "installfiles/HTMLread/Scripts/OPT/HTMLread.rx")
(dest RexxPath)
(help "Here you copy the most importend part: HTMLread.rx "
"You can find this file in YAM:HTMLread/Scripts/, too.\n\n\n"
@copyfiles-help
)
(infos)
(optional "nofail")
(delopts "askuser")
( confirm 2 )
(safe)
)
(complete 85)
(copyfiles (prompt "\nNow you should copy the HRdownload.rx!\n"
"This downloads youre added pictures in the imagelist!\n"
)
(source "installfiles/HTMLread/Scripts/OPT/HRdownload.rx")
(dest RexxPath)
(help @copyfiles-help)
(infos)
(optional "nofail")
(delopts "askuser")
( confirm 2 )
(safe)
)
(complete 90)
(copyfiles
(prompt "\nNow you should copy the (ON/Off)line-Plugin!\n"
"This Plugin control youre TCP/IP-stack.\n"
)
(source "installfiles/HTMLread/Scripts/OPT/onlinePlugins")
(dest RexxPath)
(help @copyfiles-help)
(infos)
(confirm 1)
(all)
(optional "nofail")
(delopts "askuser")
(safe)
)
(complete 94)
(copyfiles
(prompt "\nNow you should copy the status-gifs!")
(source "Icons")
(dest "YAM:Icons/")
(help @copyfiles-help)
(infos)
(confirm 1)
(all)
(optional "nofail")
(delopts "askuser")
(safe)
)
(complete 95)
(copyfiles (prompt "\nNow you should copy the badurl list!\n"
"This file protect you against EMail watching!\n"
)
(source "installfiles/HTMLread/badurls.HTMLread")
(dest "YAM:")
(help
@copyfiles-help
)
(infos)
(optional "nofail")
(delopts "askuser")
( confirm 2 )
(safe)
)
(complete 99)
(set temp (askchoice (prompt "\n\nDo you want read the HTMLreadGuide now?\n\nPlease read chapter »How to install«\n")
(help "\nIt is strongly advisable to read the guide, because some changes in YAM-Config have to made\n\n\n"
@askchoice-help
)
(choices "No, I read the guide later!"
"Yes, the english please"
"Ja, die deutsche bitte"
)
(default "1")
)
)
(if (= temp 0)
( (message
"The ARexx-scripts are now installed. Please read "
"the docfile HTMLread.doc. "
"Because you must configure YAM!\n\n"
"Fast: Start YAM and run the configwindow. Choose under ARexx: "
"»When reading a message«, "
"Type »YAM:Rexx/checkHTML.rx«, do NOT mark the two button "
"»Open console window« and »Wait for termination«! Save the config! "
"Open the drawer YAM:HTMLread und start "
"HTMLreadPrefs, click Viewer and choose one, "
"save the config!\nReady!"
)
)
)
(if (= temp 1)
( (run "SYS:Utilities/MultiView YAM:HTMLread/DOC/HTMLread.EN.guide"
(prompt "\nStart MultiView with HTMLread.EN.guide\nPlease read chapter »How to install«")
(help "\n\n\nDo you want read the doc?\n\n\n")
(confirm 2)
(safe)
)
)
)
(if (= temp 2)
( (run "SYS:Utilities/MultiView YAM:HTMLread/DOC/HTMLread.DE.guide"
(prompt "\nStart MultiView with HTMLread.DE.guide")
(help "\n\n\nDo you want read the doc?\n\n\n")
(confirm 2)
(safe)
)
)
)
(complete 100)
(exit)